00100	. DEVICE XGP    
00200	.spacing 20*5 mills;
00300	.EVERY HEADING(,{PAGE},)
00400	.AREA TEXT LINES 4 TO 40
00500	.FONT 1 "MBIG[HHA,LCS]"
00600	.font 2 "BMETI[HHA,LCS]"
00700	.font 4 "BMUS[HHA,LCS]"
00800	.font 6 "MBIG[HHA,LCS]"
00900	.!XGPLFTMAR←400
01000	.PORTION MAIN;
01100	.PLACE TEXT;
01200	.PAGE FRAME 138 WIDE 106 HIGH;
01300	.COMPACT
01400	.<< THICKEN UNDERLINE >>
01500	.AT "↓_" ⊂ SNEAK(BEWARE("'177'1'46"))⊃;
01600	.AT "_↓" ⊂ SNEAK(BEWARE("'177'1'51'3'4"))⊃;
01700	.<< Put in a footnote. >>
01800	.
01900	.COUNT FOOTNOTE INLINE FROM 1 TO 999 IN PAGE PRINTING ⊂"*****"[1 TO FOOTNOTE]⊃
02000	.<<	(IF THISDEVICE = "XGP" THEN "%51%*" ELSE "[1]");>>
02100	.
02200	.FOOTSEP ← "__________";
02300	.AT "$$" ENTRY "$"
02400	.	⊂
02500	.	NEXT FOOTNOTE;
02600	.	FOOTNOTE!;
02700	.	SEND FOOT
02800	.		⊂
02900	.		BEGIN "NEXT FOOTNOTE"
03000	.		SELECT 1;
03100	.		SINGLE SPACE
03200	.		SPACING 0 MILLS
03300	.		INDENT 0,0,0;
03400	.		(FOOTNOTE! & " ");
03500	ENTRY
03600	.		END "NEXT FOOTNOTE";
03700	.		⊃;
03800	.	⊃;
03900	.
04000	.TURN ON "%↓_↑↓[&]","α"
04100	.at "!!" txt ";"	⊂
04200	.("↑[%3"&"txt"[1]&"]&↓["&"txt"[2]&"]%*");
04300	.COMMENT ("txt"[1]&"↑[%3"&"txt"[2]&"]&↓["&"txt"[3]&"]%*");
04400	.  ⊃
     

00100	.PAGE←81
00200	.NEXT PAGE	
00300	.begin verbatim
00400	Example 77.  Beethoven, Diabelli Variations, Op.120
00500	.END
00600	.CENTER
00700	%6⊂⊗⊃L[α%0.0,α%-16.60](17,22):N77X.PLT[C6,LCS]⊂⊗⊃%1